home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / turbot2.arc / PROG16.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-06-15  |  470 b   |  25 lines
  1. PROGRAM PROG16;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Real Numbers
  5.  
  6. }
  7. CONST
  8.   C  =  -2.0;
  9.  
  10. VAR
  11.   A, B  : Real;
  12.   I, J  : Integer;
  13.  
  14. BEGIN
  15.   ClrScr;
  16.   Write('Enter a decimal number: ');
  17.   ReadLn(A);
  18.   WriteLn('A       [', A,      ']');
  19.   WriteLn('A:10:2  [', A:10:2, ']');
  20.   WriteLn('A:10:1  [', A:10:1, ']');
  21.   WriteLn('A:10:0  [', A:10:0, ']');
  22.   WriteLn;
  23.   WriteLn('A:-10:2 [', A:-10:2, ']');
  24. END.
  25.